|
|
|
|
|
|
|
End Select
s$ = s$ & vbCrLf
s$ = s$ & "Build: " & os.dwBuildNumber & vbCrLf
nullpos = InStr(os.szCSDVersion, Chr$(0))
If nullpos > 1 Then s$ = s$ & Left$(os.szCSDVersion, nullpos - 1)
Else
s$ = "GetVersionInfoEx failed"
End If
Label1.Caption = s$
End Sub |
|
|
|
|
|
|
|
|
Runtime error 453: Can't find DLL Entry Point GetVersionEx in Kernel32. |
|
|
|
|
|